home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
bbs
/
twall62s.zip
/
config.mh
< prev
next >
Wrap
Text File
|
1996-07-15
|
2KB
|
63 lines
char: showdate, userealname;
string: wallwritebbs, bbsfile, tmpfile, textcolour, signcolour, writtenbycolour;
string: reallywrittenby, realname, timedatecol, seperatebarcolour;
string: highlcolour, defaultcolour, promptcolour, realnameaccess, noaliaslevel;
string confcol(string: lline)
{
string: newline;
lline:=strupper(lline);
if(lline="BLACK") newline:=BLACK;
if(lline="BLUE") newline:=BLUE;
if(lline="GREEN") newline:=GREEN;
if(lline="CYAN") newline:=CYAN;
if(lline="RED") newline:=RED;
if(lline="MAGENTA") newline:=MAGENTA;
if(lline="BROWN") newline:=BROWN;
if(lline="GRAY") newline:=GRAY;
if(lline="GREY") newline:=GRAY;
if(lline="DKGRAY") newline:=DARKGRAY;
if(lline="DKGREY") newline:=DARKGRAY;
if(lline="LBLUE") newline:=LIGHTBLUE;
if(lline="LGREEN") newline:=LIGHTGREEN;
if(lline="LCYAN") newline:=LIGHTCYAN;
if(lline="LRED") newline:=LIGHTRED;
if(lline="LMAGENTA") newline:=LIGHTMAGENTA;
if(lline="YELLOW") newline:=YELLOW;
if(lline="WHITE") newline:=WHITE;
print(newline);
return newline;
}
#define CONFIGLINES 17
void loadconfig(string: configfile)
{
int: linecount, cfgfile;
array [1..CONFIGLINES] of string: cfgline;
//cfgfile:=open("thewall.cfg", IOPEN_READ);
cfgfile:=open(configfile, IOPEN_READ);
for (linecount:=1; linecount<=CONFIGLINES; linecount:=linecount+1) readln(cfgfile,cfgline[linecount]);
wallwritebbs:=cfgline[1];
bbsfile:=cfgline[2];
tmpfile:=cfgline[3];
if (strupper(cfgline[4])="TRUE") showdate:=TRUE;
else showdate:=FALSE;
textcolour:=confcol(cfgline[5]);
signcolour:=confcol(cfgline[6]);
writtenbycolour:=confcol(cfgline[7]);
reallywrittenby:=confcol(cfgline[8]);
realname:=confcol(cfgline[9]);
timedatecol:=confcol(cfgline[10]);
seperatebarcolour:=confcol(cfgline[11]);
highlcolour:=confcol(cfgline[12]);
defaultcolour:=confcol(cfgline[13]);
promptcolour:=confcol(cfgline[14]);
realnameaccess:=cfgline[15];
if (realnameaccess = "") realnameaccess:="sysop";
noaliaslevel:=cfgline[16];
if (strupper(cfgline[17])="ALIAS") userealname:=FALSE;
else userealname:=TRUE;
}